home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Big Mouth 10
/
Big_Mouth_The_10_1996_-_Side_A.d64
/
numbers
(
.txt
)
next >
Wrap
Commodore BASIC
|
2023-02-26
|
1KB
|
49 lines
1 poke 53280,5:poke 53281,11:print"[147][155]"tab(17)"numbers"
2 print"creative computing morristown,new jersey"
3 a=rnd(-ti)
4 print"you have 100 points. by guessing a"
5 print"number from 1 to 5, you can gain or"
6 print"lose points depending on how close you"
7 print"get to a random number selected by the cpmputer"
9 print"you occasionally will get a jackpot"
10 print"that will double(!)your point count"
11 print"you win when you get 500 points"
12 p=100
13 def fnr(x)=int(5*rnd(1)+1)
14 input"guess a number form 1 to 5";g
15 r=fnr(1)
16 s=fnr(1)
17 t=fnr(1)
18 u=fnr(1)
19 v=fnr(1)
20 if g=r then 30
21 if g=s then 40
22 if g=t then 50
23 if g=u then 60
24 if g=v then 70
25 if g>5 then 12
30 p=p-5
35 goto 80
40 p=p+5
45 goto 80
50 p=p+p
53 print"you hit the jackpot!!!"
55 goto 80
60 p=p+1
65 goto 80
70 p=p-(p*.5)
80 if p>500 then 90
81 if p=<0 then 100
82 print"you have";p;"points"
85 goto 14
90 print"!!!!you win!!!! with";p;"points"
93 print"do you want 'nother go???"
94 get a$:if a$="y" then run
95 if a$<>"n"then 94
96 goto 200
100 print"sorry! you lost! i win (yay!)"
105 goto 93
199 :
200 rem ** end **
210 fort=1 to 500:next:load"the main menu/bm",8,1